1 REM *** DOWNSHIFT 128 ***
2 A=4864:PRINTCHR$(147)
3 FORJ=ATOA+71:READB:POKEJ,B:X=X+B:NEXTJ
4 IFX<>10304THENPRINT"ERROR IN DATA...":END
5 C=INT(A/256):D=(A-(C*256))+13:POKEA+1,D:POKEA+3,C
6 PRINT"DATA OK * SYS"A"TO ACTIVATE...":END
7 DATA169,13,162,19,120,141,20,3,142,21,3,88
8 DATA96,165,212,160,0,201,4,208,8,232,208,253
9 DATA200,192,64,144,248,201,5,208,8,232,208,253
10 DATA200,192,128,144,248,201,6,208,8,232,208,253
11 DATA200,192,192,144,248,201,3,208,8,32,159,255
12 DATA165,212,184,80,244,169,0,133,209,76,101,250